home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Auge 4000 / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip / Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf / Write / WRITE.lha / WRITEV3.371.lha / REXX / ClearUmlauts.wrx < prev    next >
Text File  |  1993-12-26  |  3KB  |  85 lines
  1. /*
  2.  *
  3.  * Script für WRITE 3.368 © 1989 - 1993 by Tim Teulings
  4.  * Dieses REXX-Script konvertiert die Zeichen ä,ö,ü,Ä,Ö,Ü,ß nach
  5.  * ae,oe,ue,Ae,Oe,Ue,ss
  6.  *
  7.  * Dies ist sehr nützlich für Texte, die an einen PC oder Unix-Rechner
  8.  * übergeben werden sollen, oder die per EMail in eine Gruppe/ein Netz
  9.  * geschickt werden, welche(s) Umlaute verbietet.
  10.  *
  11.  */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. IF ~show('P',"WRITE")
  16. THEN DO
  17.  say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
  18.  exit 10
  19. END
  20.  
  21. ADDRESS "WRITE"
  22.  
  23. 'GETVAR "_CurrentID"'
  24. ID = RESULT           /* GETVAR gibt den ID des aktuellen Fenster zurück,  */
  25.                       /* der von den weiteren Befehlen benötigt wird.      */
  26. IF ID = 0 THEN DO
  27.   "MESSAGEOK (REXX-Script\n'ClearUmlauts' : \nKein Fenster aktiviert !)"
  28.   EXIT
  29. END
  30.  
  31. OPENPORT ID           /* PrivatePort des aktuellen Fensters öffnen        */
  32. Port = RESULT
  33.  
  34. IF Port="" THEN DO    /* 'OPENPORT' gibt "" zurück, wenn Port nicht       */
  35.                       /* geöffnet werden konnte                           */
  36.   "MESSAGEOK (REXX-Script\n'ClearUmlauts'\nkonnte PrivatePort\nnicht öffnen !)"
  37.   EXIT
  38. END
  39.  
  40. INTERPRET ADDRESS Port  /* PrivatePort addressieren.Alle Komandos beziehen */
  41.                         /* sich nun auf das Fenster mit diesem Port        */
  42.  
  43. 'SILENT'                /* Silent-Mode wegen Geschwindigkeit               */
  44.  
  45. 'GETVAR "_xPos"'        /* Cursorposition holen                            */
  46. OldPos.x = RESULT
  47. 'GETVAR "_yPos"'
  48. OldPos.y = RESULT
  49.  
  50. 'SETVAR "_FindString"    "ä" '
  51. 'SETVAR "_ReplaceString" "ae"'
  52. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  53.  
  54. 'SETVAR "_FindString"    "ö" '
  55. 'SETVAR "_ReplaceString" "oe"'
  56. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  57.  
  58. 'SETVAR "_FindString"    "ü" '
  59. 'SETVAR "_ReplaceString" "ue"'
  60. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  61.  
  62. 'SETVAR "_FindString"    "Ä" '
  63. 'SETVAR "_ReplaceString" "Ae"'
  64. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  65.  
  66. 'SETVAR "_FindString"    "Ö" '
  67. 'SETVAR "_ReplaceString" "Oe"'
  68. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  69.  
  70. 'SETVAR "_FindString"    "Ü" '
  71. 'SETVAR "_ReplaceString" "Ue"'
  72. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  73.  
  74. 'SETVAR "_FindString"    "ß" '
  75. 'SETVAR "_ReplaceString" "ss"'
  76. 'REPLACE @SOT @SOT @EOT @EOT {@SILENT @NOREQ @ALL @CASE @NOWORD}'
  77.  
  78. GOTO OldPos.x OldPos.y  /* Wieder zur alten Position zurückspringen        */
  79.  
  80. WINDOW 0 0 0 0          /* Silent-Mode wieder ausschalten                  */
  81.  
  82. "MESSAGEOK (REXX-Script\n'ClearUmlauts'\n\nFertig !)"
  83.  
  84. CLOSEPORT ID
  85.